home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / search.for < prev    next >
Text File  |  1992-07-31  |  312b  |  15 lines
  1.       INTEGER FUNCTION SEARCH(CNAM)
  2. C! Finds the index for a routine name
  3.       INCLUDE 'params.h'
  4.       INCLUDE 'tables.h'
  5.       CHARACTER*(*) CNAM
  6. C
  7.       SEARCH = 0
  8.       DO 1 I=1,NPROC
  9.          IF(CNAM.EQ.PROCED_NAME(I)) THEN
  10.             SEARCH = I
  11.             RETURN
  12.          ENDIF
  13.    1  CONTINUE
  14.       END
  15.